Developer CD Series 1996 May: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Misc.sea / Misc / redef-warn.lisp < prev next >
MacBinary | 1993-02-26 | 3.3 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Feb 26 15:59:28 1993, modified Fri Feb 26 15:59:28 1993, creator Common Lisp 2, type ASCII, 2577 bytes "redef-warn.lisp" , at 0xa91 508 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 72 65 64 65 66 2d | 77 61 72 6e 2e 6c 69 73 |..redef-|warn.lis|
|00000010| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0a 11 00 | 00 01 fc a7 b4 35 30 a7 |........|.....50.|
|00000060| b4 35 30 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.50.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6d f9 00 00 |........|....m...|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 63 63 6c |(in-pack|age :ccl|
|00000090| 29 0d 0d 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)..;----|--------|
|000000a0| 2d 2d 2d 2d 0d 3b 20 52 | 65 64 65 66 69 6e 65 2d |----.; R|edefine-|
|000000b0| 77 61 72 6e 69 6e 67 73 | 0d 3b 0d 3b 20 54 68 69 |warnings|.;.; Thi|
|000000c0| 73 20 63 6f 64 65 20 6d | 61 6b 65 73 20 72 65 64 |s code m|akes red|
|000000d0| 65 66 69 6e 69 74 69 6f | 6e 20 77 61 72 6e 69 6e |efinitio|n warnin|
|000000e0| 67 73 20 61 20 6c 69 74 | 74 6c 65 20 70 72 65 74 |gs a lit|tle pret|
|000000f0| 74 69 65 72 20 62 79 0d | 3b 20 63 6f 6c 6c 65 63 |tier by.|; collec|
|00000100| 74 69 6e 67 20 74 68 65 | 6d 20 75 70 20 61 6e 64 |ting the|m up and|
|00000110| 20 70 72 69 6e 74 69 6e | 67 20 74 68 65 6d 20 61 | printin|g them a|
|00000120| 6c 6c 20 61 74 20 6f 6e | 63 65 20 66 6f 72 20 65 |ll at on|ce for e|
|00000130| 61 63 68 20 6c 6f 61 64 | 65 64 20 66 69 6c 65 2e |ach load|ed file.|
|00000140| 0d 3b 0d 3b 20 73 74 72 | 61 7a 20 31 35 20 4a 75 |.;.; str|az 15 Ju|
|00000150| 6c 79 20 39 32 0d 0d 0d | 3b 20 4f 6c 64 20 76 65 |ly 92...|; Old ve|
|00000160| 72 73 69 6f 6e 20 6f 66 | 20 77 61 72 6e 69 6e 67 |rsion of| warning|
|00000170| 3a 0d 3b 57 61 72 6e 69 | 6e 67 3a 20 20 46 55 4e |:.;Warni|ng:  FUN|
|00000180| 43 54 49 4f 4e 20 42 41 | 52 20 70 72 65 76 69 6f |CTION BA|R previo|
|00000190| 75 73 6c 79 20 64 65 66 | 69 6e 65 64 20 69 6e 3a |usly def|ined in:|
|000001a0| 20 6c 75 67 20 6e 75 74 | 73 3a 66 6f 6f 2e 6c 69 | lug nut|s:foo.li|
|000001b0| 73 70 0d 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |sp.;    |        |
|000001c0| 20 20 20 20 20 20 69 73 | 20 6e 6f 77 20 62 65 69 |      is| now bei|
|000001d0| 6e 67 20 72 65 64 65 66 | 69 6e 65 64 20 69 6e 3a |ng redef|ined in:|
|000001e0| 20 6c 75 67 20 6e 75 74 | 73 3a 64 65 73 6b 74 6f | lug nut|s:deskto|
|000001f0| 70 20 66 6f 6c 64 65 72 | 3a 74 65 73 74 2e 6c 69 |p folder|:test.li|
|00000200| 73 70 0d 3b 20 20 20 20 | 20 20 20 20 20 0d 3b 20 |sp.;    |     .; |
|00000210| 57 68 69 6c 65 20 65 78 | 65 63 75 74 69 6e 67 3a |While ex|ecuting:|
|00000220| 20 52 45 43 4f 52 44 2d | 53 4f 55 52 43 45 2d 46 | RECORD-|SOURCE-F|
|00000230| 49 4c 45 0d 3b 57 61 72 | 6e 69 6e 67 3a 20 20 46 |ILE.;War|ning:  F|
|00000240| 55 4e 43 54 49 4f 4e 20 | 46 4f 4f 20 70 72 65 76 |UNCTION |FOO prev|
|00000250| 69 6f 75 73 6c 79 20 64 | 65 66 69 6e 65 64 20 69 |iously d|efined i|
|00000260| 6e 3a 20 6c 75 67 20 6e | 75 74 73 3a 66 6f 6f 2e |n: lug n|uts:foo.|
|00000270| 6c 69 73 70 0d 3b 20 20 | 20 20 20 20 20 20 20 20 |lisp.;  |        |
|00000280| 20 20 20 20 20 20 20 20 | 69 73 20 6e 6f 77 20 62 |        |is now b|
|00000290| 65 69 6e 67 20 72 65 64 | 65 66 69 6e 65 64 20 69 |eing red|efined i|
|000002a0| 6e 3a 20 6c 75 67 20 6e | 75 74 73 3a 64 65 73 6b |n: lug n|uts:desk|
|000002b0| 74 6f 70 20 66 6f 6c 64 | 65 72 3a 74 65 73 74 2e |top fold|er:test.|
|000002c0| 6c 69 73 70 0d 3b 20 20 | 20 20 20 20 20 20 20 0d |lisp.;  |       .|
|000002d0| 3b 20 57 68 69 6c 65 20 | 65 78 65 63 75 74 69 6e |; While |executin|
|000002e0| 67 3a 20 52 45 43 4f 52 | 44 2d 53 4f 55 52 43 45 |g: RECOR|D-SOURCE|
|000002f0| 2d 46 49 4c 45 0d 3b 57 | 61 72 6e 69 6e 67 3a 20 |-FILE.;W|arning: |
|00000300| 20 46 55 4e 43 54 49 4f | 4e 20 42 41 5a 20 70 72 | FUNCTIO|N BAZ pr|
|00000310| 65 76 69 6f 75 73 6c 79 | 20 64 65 66 69 6e 65 64 |eviously| defined|
|00000320| 20 69 6e 3a 20 6c 75 67 | 20 6e 75 74 73 3a 66 6f | in: lug| nuts:fo|
|00000330| 6f 2e 6c 69 73 70 0d 3b | 20 20 20 20 20 20 20 20 |o.lisp.;|        |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 69 73 20 6e 6f 77 |        |  is now|
|00000350| 20 62 65 69 6e 67 20 72 | 65 64 65 66 69 6e 65 64 | being r|edefined|
|00000360| 20 69 6e 3a 20 6c 75 67 | 20 6e 75 74 73 3a 64 65 | in: lug| nuts:de|
|00000370| 73 6b 74 6f 70 20 66 6f | 6c 64 65 72 3a 74 65 73 |sktop fo|lder:tes|
|00000380| 74 2e 6c 69 73 70 0d 3b | 20 20 20 20 20 20 20 20 |t.lisp.;|        |
|00000390| 20 0d 3b 20 57 68 69 6c | 65 20 65 78 65 63 75 74 | .; Whil|e execut|
|000003a0| 69 6e 67 3a 20 52 45 43 | 4f 52 44 2d 53 4f 55 52 |ing: REC|ORD-SOUR|
|000003b0| 43 45 2d 46 49 4c 45 0d | 3b 0d 3b 20 4e 65 77 20 |CE-FILE.|;.; New |
|000003c0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 77 61 72 6e 69 |version |of warni|
|000003d0| 6e 67 3a 0d 3b 0d 3b 57 | 61 72 6e 69 6e 67 3a 20 |ng:.;.;W|arning: |
|000003e0| 4d 75 6c 74 69 70 6c 65 | 20 72 65 64 65 66 69 6e |Multiple| redefin|
|000003f0| 69 74 69 6f 6e 73 20 69 | 6e 20 6c 75 67 20 6e 75 |itions i|n lug nu|
|00000400| 74 73 3a 64 65 73 6b 74 | 6f 70 20 66 6f 6c 64 65 |ts:deskt|op folde|
|00000410| 72 3a 74 65 73 74 2e 6c | 69 73 70 3a 0d 3b 20 20 |r:test.l|isp:.;  |
|00000420| 20 20 20 20 20 20 20 20 | 46 55 4e 43 54 49 4f 4e |        |FUNCTION|
|00000430| 20 42 41 5a 20 70 72 65 | 76 69 6f 75 73 6c 79 20 | BAZ pre|viously |
|00000440| 64 65 66 69 6e 65 64 20 | 69 6e 3a 20 6c 75 67 20 |defined |in: lug |
|00000450| 6e 75 74 73 3a 66 6f 6f | 2e 6c 69 73 70 0d 3b 20 |nuts:foo|.lisp.; |
|00000460| 20 20 20 20 20 20 20 20 | 20 46 55 4e 43 54 49 4f |        | FUNCTIO|
|00000470| 4e 20 42 41 52 20 70 72 | 65 76 69 6f 75 73 6c 79 |N BAR pr|eviously|
|00000480| 20 64 65 66 69 6e 65 64 | 20 69 6e 3a 20 6c 75 67 | defined| in: lug|
|00000490| 20 6e 75 74 73 3a 66 6f | 6f 2e 6c 69 73 70 0d 3b | nuts:fo|o.lisp.;|
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 46 55 4e 43 54 49 |        |  FUNCTI|
|000004b0| 4f 4e 20 46 4f 4f 20 70 | 72 65 76 69 6f 75 73 6c |ON FOO p|reviousl|
|000004c0| 79 20 64 65 66 69 6e 65 | 64 20 69 6e 3a 20 6c 75 |y define|d in: lu|
|000004d0| 67 20 6e 75 74 73 3a 66 | 6f 6f 2e 6c 69 73 70 0d |g nuts:f|oo.lisp.|
|000004e0| 3b 20 57 68 69 6c 65 20 | 65 78 65 63 75 74 69 6e |; While |executin|
|000004f0| 67 3a 20 4d 55 4c 54 49 | 2d 52 45 44 45 46 49 4e |g: MULTI|-REDEFIN|
|00000500| 45 2d 57 41 52 4e 0d 0d | 3b 2d 2d 2d 2d 2d 2d 2d |E-WARN..|;-------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d 0d 28 64 65 |--------|--...(de|
|00000540| 66 75 6e 20 73 69 6d 70 | 6c 65 2d 72 65 64 65 66 |fun simp|le-redef|
|00000550| 69 6e 65 2d 77 61 72 6e | 69 6e 67 3f 20 28 77 29 |ine-warn|ing? (w)|
|00000560| 0d 20 20 28 61 6e 64 20 | 28 74 79 70 65 70 20 77 |.  (and |(typep w|
|00000570| 20 27 73 69 6d 70 6c 65 | 2d 77 61 72 6e 69 6e 67 | 'simple|-warning|
|00000580| 29 0d 20 20 20 20 20 20 | 20 28 73 65 61 72 63 68 |).      | (search|
|00000590| 20 22 69 73 20 6e 6f 77 | 20 62 65 69 6e 67 20 72 | "is now| being r|
|000005a0| 65 64 65 66 69 6e 65 64 | 20 69 6e 22 0d 20 20 20 |edefined| in".   |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 73 6c 6f |        |    (slo|
|000005c0| 74 2d 76 61 6c 75 65 20 | 77 20 27 66 6f 72 6d 61 |t-value |w 'forma|
|000005d0| 74 2d 73 74 72 69 6e 67 | 29 29 29 29 0d 0d 28 64 |t-string|))))..(d|
|000005e0| 65 66 6d 61 63 72 6f 20 | 72 65 64 65 66 69 6e 65 |efmacro |redefine|
|000005f0| 2d 77 61 72 6e 20 28 66 | 75 6e 63 74 69 6f 6e 29 |-warn (f|unction)|
|00000600| 0d 20 20 60 28 61 64 76 | 69 73 65 20 2c 66 75 6e |.  `(adv|ise ,fun|
|00000610| 63 74 69 6f 6e 20 0d 20 | 20 20 20 20 20 20 20 20 |ction . |        |
|00000620| 20 20 28 6c 65 74 20 28 | 77 61 72 6e 69 6e 67 73 |  (let (|warnings|
|00000630| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |).      |       (|
|00000640| 6d 75 6c 74 69 70 6c 65 | 2d 76 61 6c 75 65 2d 70 |multiple|-value-p|
|00000650| 72 6f 67 31 0d 20 20 20 | 20 20 20 20 20 20 20 20 |rog1.   |        |
|00000660| 20 20 20 20 28 68 61 6e | 64 6c 65 72 2d 62 69 6e |    (han|dler-bin|
|00000670| 64 20 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d .     |        |
|00000680| 20 20 20 20 28 28 73 69 | 6d 70 6c 65 2d 77 61 72 |    ((si|mple-war|
|00000690| 6e 69 6e 67 20 0d 20 20 | 20 20 20 20 20 20 20 20 |ning .  |        |
|000006a0| 20 20 20 20 20 20 20 20 | 20 23 27 28 6c 61 6d 62 |        | #'(lamb|
|000006b0| 64 61 20 28 63 6f 6e 64 | 69 74 69 6f 6e 29 0d 20 |da (cond|ition). |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006d0| 20 20 20 20 20 20 28 77 | 68 65 6e 20 28 73 69 6d |      (w|hen (sim|
|000006e0| 70 6c 65 2d 72 65 64 65 | 66 69 6e 65 2d 77 61 72 |ple-rede|fine-war|
|000006f0| 6e 69 6e 67 3f 20 63 6f | 6e 64 69 74 69 6f 6e 29 |ning? co|ndition)|
|00000700| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 28 70 75 73 68 20 |        |  (push |
|00000720| 63 6f 6e 64 69 74 69 6f | 6e 20 77 61 72 6e 69 6e |conditio|n warnin|
|00000730| 67 73 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |gs).    |        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 6d 75 |        |     (mu|
|00000750| 66 66 6c 65 2d 77 61 72 | 6e 69 6e 67 29 29 29 29 |ffle-war|ning))))|
|00000760| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00000770| 20 20 20 28 3a 64 6f 2d | 69 74 29 29 0d 20 20 20 |   (:do-|it)).   |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 77 68 65 |        |    (whe|
|00000790| 6e 20 77 61 72 6e 69 6e | 67 73 20 28 6d 75 6c 74 |n warnin|gs (mult|
|000007a0| 69 2d 72 65 64 65 66 69 | 6e 65 2d 77 61 72 6e 20 |i-redefi|ne-warn |
|000007b0| 77 61 72 6e 69 6e 67 73 | 29 29 29 29 0d 20 20 20 |warnings|)))).   |
|000007c0| 20 20 20 20 20 20 20 20 | 3a 77 68 65 6e 20 3a 61 |        |:when :a|
|000007d0| 72 6f 75 6e 64 20 3a 6e | 61 6d 65 20 3a 63 6f 6c |round :n|ame :col|
|000007e0| 6c 65 63 74 2d 77 61 72 | 6e 69 6e 67 73 29 29 0d |lect-war|nings)).|
|000007f0| 0d 0d 28 64 65 66 75 6e | 20 6d 75 6c 74 69 2d 72 |..(defun| multi-r|
|00000800| 65 64 65 66 69 6e 65 2d | 77 61 72 6e 20 28 77 61 |edefine-|warn (wa|
|00000810| 72 6e 69 6e 67 73 29 0d | 20 20 28 66 6c 65 74 20 |rnings).|  (flet |
|00000820| 28 28 77 2d 61 72 67 73 | 20 28 77 29 20 28 73 6c |((w-args| (w) (sl|
|00000830| 6f 74 2d 76 61 6c 75 65 | 20 77 20 27 66 6f 72 6d |ot-value| w 'form|
|00000840| 61 74 2d 61 72 67 75 6d | 65 6e 74 73 29 29 29 0d |at-argum|ents))).|
|00000850| 20 20 20 20 28 6c 65 74 | 20 28 28 6e 65 77 20 28 |    (let| ((new (|
|00000860| 66 6f 75 72 74 68 20 28 | 77 2d 61 72 67 73 20 28 |fourth (|w-args (|
|00000870| 63 61 72 20 77 61 72 6e | 69 6e 67 73 29 29 29 29 |car warn|ings))))|
|00000880| 29 0d 20 20 20 20 20 20 | 28 63 6f 6e 64 20 28 28 |).      |(cond ((|
|00000890| 6f 72 20 28 3d 20 31 20 | 28 6c 65 6e 67 74 68 20 |or (= 1 |(length |
|000008a0| 77 61 72 6e 69 6e 67 73 | 29 29 0d 20 20 20 20 20 |warnings|)).     |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6e 6f 74 |        |    (not|
|000008c0| 65 76 65 72 79 20 23 27 | 28 6c 61 6d 62 64 61 20 |every #'|(lambda |
|000008d0| 28 77 29 20 28 65 71 75 | 61 6c 70 20 6e 65 77 20 |(w) (equ|alp new |
|000008e0| 28 66 6f 75 72 74 68 20 | 28 77 2d 61 72 67 73 20 |(fourth |(w-args |
|000008f0| 77 29 29 29 29 20 77 61 | 72 6e 69 6e 67 73 29 29 |w)))) wa|rnings))|
|00000900| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 64 |.       |      (d|
|00000910| 6f 6c 69 73 74 20 28 77 | 20 77 61 72 6e 69 6e 67 |olist (w| warning|
|00000920| 73 29 20 28 77 61 72 6e | 20 77 29 29 29 0d 20 20 |s) (warn| w))).  |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 28 74 0d 20 20 20 |        |  (t.   |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 28 77 61 72 6e 20 |        |  (warn |
|00000950| 22 4d 75 6c 74 69 70 6c | 65 20 72 65 64 65 66 69 |"Multipl|e redefi|
|00000960| 6e 69 74 69 6f 6e 73 20 | 69 6e 20 7e 61 3a 7e 7b |nitions |in ~a:~{|
|00000970| 7e 26 20 7e 41 20 7e 41 | 20 70 72 65 76 69 6f 75 |~& ~A ~A| previou|
|00000980| 73 6c 79 20 64 65 66 69 | 6e 65 64 20 69 6e 3a 20 |sly defi|ned in: |
|00000990| 7e 61 7e 7d 22 0d 20 20 | 20 20 20 20 20 20 20 20 |~a~}".  |        |
|000009a0| 20 20 20 20 20 20 20 20 | 20 6e 65 77 0d 20 20 20 |        | new.   |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009c0| 28 6d 61 70 63 61 6e 20 | 23 27 28 6c 61 6d 62 64 |(mapcan |#'(lambd|
|000009d0| 61 20 28 77 29 20 28 73 | 75 62 73 65 71 20 28 77 |a (w) (s|ubseq (w|
|000009e0| 2d 61 72 67 73 20 77 29 | 20 30 20 33 29 29 0d 20 |-args w)| 0 3)). |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 77 61 72 6e 69 6e |        |  warnin|
|00000a10| 67 73 29 29 29 29 29 29 | 29 0d 0d 28 72 65 64 65 |gs))))))|)..(rede|
|00000a20| 66 69 6e 65 2d 77 61 72 | 6e 20 6c 6f 61 64 29 0d |fine-war|n load).|
|00000a30| 0d 3b 3b 3b 20 55 73 65 | 64 20 62 79 20 46 72 65 |.;;; Use|d by Fre|
|00000a40| 64 27 73 20 22 65 76 61 | 6c 20 73 65 6c 65 63 74 |d's "eva|l select|
|00000a50| 69 6f 6e 22 20 61 6e 64 | 20 22 65 76 61 6c 20 62 |ion" and| "eval b|
|00000a60| 75 66 66 65 72 22 20 63 | 6f 6d 6d 61 6e 64 73 0d |uffer" c|ommands.|
|00000a70| 28 72 65 64 65 66 69 6e | 65 2d 77 61 72 6e 20 73 |(redefin|e-warn s|
|00000a80| 65 6c 65 63 74 69 6f 6e | 2d 65 76 61 6c 29 20 20 |election|-eval)  |
|00000a90| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 01 00 00 00 01 aa | 00 00 00 aa 00 00 00 52 |........|.......R|
|00000b10| 76 36 38 30 31 30 20 32 | 29 0d 28 64 65 66 63 6f |v68010 2|).(defco|
|00000b20| 6e 73 74 61 6e 74 20 24 | 65 6e 76 36 38 30 32 30 |nstant $|env68020|
|00000b30| 0f 72 65 64 65 66 2d 77 | 61 72 6e 2e 6c 69 73 70 |.redef-w|arn.lisp|
|00000b40| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 00 50 |....TEXT|CCL2...P|
|00000b50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 50 00 c0 |..TEXTCC|L2...P..|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 a7 b3 fc f0 00 00 | 0a 11 00 00 01 fc 65 66 |........|......ef|
|00000b80| 63 6f 6e 73 74 61 6e 74 | 20 24 65 6e 76 55 6e 6b |constant| $envUnk|
|00000b90| 6e 6f 77 6e 4b 62 64 20 | 30 29 0d 28 64 65 66 63 |nownKbd |0).(defc|
|00000ba0| 6f 6e 73 74 61 6e 74 20 | 24 65 6e 76 4d 61 63 4b |onstant |$envMacK|
|00000bb0| 62 64 20 31 29 0d 28 64 | 65 66 63 6f 6e 73 74 61 |bd 1).(d|efconsta|
|00000bc0| 6e 74 20 24 65 6e 76 4d | 61 63 41 6e 64 50 61 64 |nt $envM|acAndPad|
|00000bd0| 20 32 29 0d 28 64 65 66 | 63 6f 6e 73 74 61 6e 74 | 2).(def|constant|
|00000be0| 20 24 65 6e 76 4d 61 63 | 50 6c 75 73 4b 62 64 20 | $envMac|PlusKbd |
|00000bf0| 33 29 0d 28 64 65 66 63 | 6f 6e 73 74 61 6e 74 20 |3).(defc|onstant |
|00000c00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 00 00 00 00 00 00 06 | 00 08 00 29 00 03 01 dd |........|...)....|
|00000c30| 02 7d 00 29 00 03 01 dd | 02 7d 00 00 00 00 00 00 |.}.)....|.}......|
|00000c40| 00 3a 00 00 00 3a 00 00 | 00 00 01 00 00 00 00 46 |.:...:..|.......F|
|00000c50| 00 02 00 04 09 00 00 04 | 09 01 01 00 00 00 02 00 |........|........|
|00000c60| 00 da 01 00 00 f1 02 00 | 03 3c 01 00 03 53 02 00 |........|.<...S..|
|00000c70| 04 c4 01 00 04 dc 02 00 | 05 68 01 00 05 75 02 00 |........|.h...u..|
|00000c80| 07 79 01 00 07 8c 02 00 | 09 aa 01 00 09 ae 02 00 |.y......|........|
|00000c90| 09 ff 01 00 0a 0d 00 00 | 00 10 00 00 06 4d 6f 6e |........|.....Mon|
|00000ca0| 61 63 6f 06 4d 6f 6e 61 | 63 6f 00 00 01 00 00 00 |aco.Mona|co......|
|00000cb0| 01 aa 00 00 00 aa 00 00 | 00 52 00 dd 26 bc 0e 54 |........|.R..&..T|
|00000cc0| 00 00 00 1c 00 52 00 01 | 46 52 45 44 00 01 00 12 |.....R..|FRED....|
|00000cd0| 4d 50 53 52 00 00 00 2a | 00 02 ff ff 00 00 00 4c |MPSR...*|.......L|
|00000ce0| 00 00 00 00 00 03 ff ff | 00 00 00 96 00 00 00 00 |........|........|
|00000cf0| 03 ed ff ff 00 00 00 00 | 00 dd 3e ac 00 00 00 00 |........|..>.....|
+--------+-------------------------+-------------------------+--------+--------+